home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Computers
/
Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso
/
commercial
/
inovatronics
/
edgedemo
/
edgeeditor
/
rexx
/
menu_dosshell.edge
< prev
next >
Wrap
Text File
|
1994-11-17
|
1KB
|
39 lines
/*
** $VER: OpenDOSShell.edge 1.2 (Sunday 08-Aug-93 02:49:57)
**
** Script to open a shell console on the Edge screen. The current directory
** will be set to the current files path or if the path is zero to Edge's
** current directory. The window position/size/title is expected in
** _GE_User0, and the shell startup file in _GE_User1.
**
** Written by Thomas liljetoft
*/
options results
'getenvvar' _ge_screenname /* get name of the screen we're running on */
screenname = result
'getenvvar' _fe_path /* get path of the current file */
path = result
'getenvvar' _ge_user0 /* get window position/size/title */
window = result
if length(window) = 0 then window = "20/20/600/50/AmigaShell/close"
'getenvvar' _ge_user1 /* get shell startup file */
startup = result
/* cd the current path */
call pragma(d,path)
/* now open the shell console */
if length(startup) ~= 0 then
address command newshell '"'"con:"window"/SCREEN "screenname'"' from startup
else
address command newshell '"'"con:"window"/SCREEN "screenname'"'
exit(RC)